(bdf-read-font-info): Modify the kludgy code for fonts

of wrong SIZE record.

diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el
index 0261ccbf553e688b079cf745b4daba0aeaea62b4..441584607de5ab27dc3e9c481861567ae304edcf 100644 (file)
--- a/lisp/ps-bdf.el
+++ b/lisp/ps-bdf.el
@@ -240,7 +240,7 @@ CODE, where N and CODE are in the following relation:
          (setq size (read (current-buffer)))
          ;; The following kludgy code is t avoid bugs of several
          ;; fonts which have wrong SIZE record.
-         (and (<= size (/ (aref font-bounding-box 1) 2))
+         (and (<= size (/ (aref font-bounding-box 1) 3))
               (setq size (aref font-bounding-box 1)))
 
          (setq default-char (bdf-search-and-read "\nDEFAULT_CHAR" nil))